unit Visitor;

interface

   TMedaVisitor = class
   private
   public
      function VisitNode( Instance : TMedaObject ) : TObject ; overload ; virtual ;
      function VisitNode( Instance : TMedaElement ) : TObject ; overload ; virtual ;
      function VisitNode( Instance : TMedaContainer ) : TObject ; overload ; virtual ;
      function VisitNode( Instance : TMedaPart ) : TObject ; overload ; virtual ;
      function VisitNode( Instance : TMedaBank ) : TObject ; overload ; virtual ;
      function VisitNode( Instance : TMedaPin ) : TObject ; overload ; virtual ;
      function VisitNode( Instance : TMedaNet ) : TObject ; overload ; virtual ;
      function VisitNode( Instance : TMedaLine ) : TObject ; overload ; virtual ;
      function VisitNode( Instance : TMedaTrack ) : TObject ; overload ; virtual ;
      function VisitNode( Instance : TMedaVia ) : TObject ; overload ; virtual ;
      function VisitNode( Instance : TMedaCopper ) : TObject ; overload ; virtual ;
      function VisitNode( Instance : TMedaShape ) : TObject ; overload ; virtual ;
      function VisitNode( Instance : TMedaStack ) : TObject ; overload ; virtual ;
      function VisitNode( Instance : TMedaModule ) : TObject ; overload ; virtual ;
      function VisitNode( Instance : TMedaProject ) : TObject ; overload ; virtual ;
   end ;

implementation

end.
 